;
;  CLIENTS -- clients list module  (c) Copyright 1990 Chris Butler
;		uses cbuf 1
;		uses pbuf 1
;		uses dbuf 1
;video m ; 640 X 480
set allpsdi off
goto top
all:
set allspdi on
top:

setrgb 1 63 63 63 1
local wait 5

dload carddff 1
pload card0 1

;color 0
;clearscr
pfade 10 1 200
pfree 1
waitkey 100

; get pic preloaded
pload invite 1
;pfade 0  1
putdff 1 40 0 4 ; open card
dfree 1

;  explode card to full screen
color 1
clearscr
color 0
box   110,140 500,370 1
waitkey @wait
box    90,120 520,390 1
waitkey @wait
box   70,100  540,410 1
waitkey @wait
color 1
box   110,140 500,370 1
waitkey @wait
color 0
box    50,80  560,430 1
waitkey @wait
color 1
box    90,120 520,390 1
waitkey @wait
color 0
box    30,60  580,450 1
waitkey @wait
color 1
box   70,100  540,410 2
waitkey @wait
color 0
box   10,40   600,470 1
waitkey @wait
color 1
box    50,80  560,430 1
waitkey @wait
box    30,60  580,450 1
waitkey @wait
box    10,40  600,470 1

pfade 12 1
pfree 1
waitkey 250
note 100 10 10
waitkey 300

video g
pload clpic5.pic 1
setupscr 1
pfade 0 1
waitkey 200
pan 0,0 1,0 1
mark 752
pan 1,0 R 1
waitkey 2
loop

note 100 10 10
waitkey 400

color 0
clearscr
resetscr
video m
if @allpsdi==on
  link engr.txt all
 else
  link master.txt entry_6
endif
;if @allpsdi==on
;  link tour1.txt engr
; else
;  link master.txt entry_6
;endif
exit	; SUBR CLIENTS